home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Gooey1.3.1 / C Templates / mmCommon.c < prev    next >
Text File  |  1995-01-31  |  69KB  |  2,093 lines
  1. $$Message MM Common, mm:mmCommon$Prototype.name$.c
  2. $$File mm:mmCommon$Prototype.name$.c
  3. /*  $CopyRight$ */
  4. /*  mmCommon$Prototype.name$                         Common */
  5.  
  6. /*
  7.     Name:  mmCommon$Prototype.name$.c
  8.     Function:  Common for the Marksman¬ specific code.
  9.     History: $Date$ Original by $Author$
  10.  
  11. */
  12.  
  13.  
  14. #include "mmCommon$Prototype.name$.h"            /* Common */
  15.  
  16. /* ======================================================= */
  17.  
  18. UserEventHRec    UserEventList;                    /* User Event record list start */
  19. EventRecord        myEvent;                        /* Event record for all events */
  20. Boolean            WNE;                            /* WaitNextEvent trap is available */
  21. short            SleepValue;                        /* Sleep value for Wait on events */
  22. Boolean            doneFlag;                        /* Exit program flag */
  23. TEHandle        theInput;                        /* Used in text edit selections */
  24. RgnHandle        cursorRgn;                        /* Cursor region for WaitNextEvent */
  25. short            ReplyMode;                        /* Reply mode for AppleEvents */
  26.  
  27. Rect            tempRect;                        /* Temporary rect, not for long term use */
  28. Str255            sTemp;                            /* Temporary string, not for long term use */
  29. short            tempChar;                        /* Temporary use character */
  30. long            LTemp;                            /* Temporary use long variable */
  31. short            DType;                            /* Temporary use Type of dialog item */
  32. Handle            DItem;                            /* Temporary use Handle to the dialog item */
  33. ControlHandle    CItem;                            /* Temporary use Control handle */
  34.  
  35. WindowLocRec    theWindowLocRec;
  36.  
  37. Boolean            Doing_MovableModal;                /* For Movable Modal dialogs */
  38. Boolean            HoldOffUserEvents;                /* Flag for holding off UserEvents */
  39. Boolean            InTheForeground;                /* Flag for running in MultiFinder foreground */
  40.  
  41. HasRec            Has;                            /* Gestalt check results */
  42. FileRec            Files;                            /* Reading and writing files */
  43. PrintingRec        Printing;                        /* Printing */
  44.  
  45. RGBColor        Black_ForeColor,White_BackColor;/* Standard colors */
  46.  
  47. ProcessSerialNumber        gSelfPSN;
  48. AEAddressDesc                    gSelfAddress;
  49.  
  50. $$Loop Menus
  51. MenuHandle    Menu_$Menu.name$;                    /* Menu handle, $Menu.FullName$ */
  52. $$EndLoop
  53.  
  54. $$Loop HierMenus
  55. MenuHandle    Menu_$Menu.name$;                    /* Hier Menu handle, $Menu.FullName$ */
  56. $$EndLoop
  57.  
  58. $$Loop Alerts
  59. $Worksheet.name$Rec        Rec_$Worksheet.name$;    /* Record for Alert, "$Worksheet.FullName$" */
  60. $$EndLoop Alerts
  61. $$Loop Dialogs
  62. $Worksheet.name$Rec        Rec_$Worksheet.name$;    /* Record for dialog, "$Worksheet.FullName$" */
  63. $$EndLoop
  64. $$Loop Windows
  65. $Worksheet.name$RecPtr    RecPtr_$Worksheet.name$;    /* Record pointer for window, "$Worksheet.FullName$" */
  66. $Worksheet.name$RecPtr    ListRecPtr_$Worksheet.name$;
  67. Boolean                    MultipleAllowed_$Worksheet.name$;
  68. $$EndLoop
  69.  
  70. #define            LowestWindowIndex            0
  71. #define            HighestWindowIndex            10
  72. WindowPtr        TopMostWindows[12];
  73. WindowPtr        BottomMostWindows[12];
  74.  
  75. #define            lmWindowList                0x000009D6
  76.  
  77. /* Variables used by Select Volume */
  78. short            Last_vRefNum;
  79. long            Last_parID;
  80. Str255            Last_Name;
  81.  
  82. #pragma segment Main
  83.  
  84. static void    VerifyWindowLayers(void);
  85.  
  86. static pascal Boolean mySelectCustomFileFilter(CInfoPBPtr pb,Ptr myDataPtr);
  87.  
  88. static pascal short mySelectDlgFilter(short item,DialogPtr theDialog,Ptr myDataPtr);
  89.  
  90. static void BasicSetup(DialogPtr theDialog,short theItem,Boolean Enabled,short MessageResID,
  91.     ControlHandle *theCItem);
  92.  
  93. /* ======================================================= */
  94. /* ======================================================= */
  95.  
  96. void     InitAppleEvents(void)                            /* Initialize for AppleEvents */
  97. {
  98. OSErr    err;                                        /* Error */
  99. AEEventHandlerUPP        theRoutine;
  100.  
  101.  
  102. theRoutine = NewAEEventHandlerProc(DispatchAppleEvent);
  103. err = AEInstallEventHandler(kCoreEventClass,kAEOpenApplication,
  104.     theRoutine,kAEOpenApplication,false);
  105. err = AEInstallEventHandler(kCoreEventClass,kAEOpenDocuments,
  106.     theRoutine,kAEOpenDocuments,false);
  107. err = AEInstallEventHandler(kCoreEventClass,kAEPrintDocuments,
  108.     theRoutine,kAEPrintDocuments,false);
  109. err = AEInstallEventHandler(kCoreEventClass,kAEQuitApplication,
  110.     theRoutine,kAEQuitApplication,false);
  111.  
  112. //err = AEObjectInit();                                /* Init the AE Object code */
  113.  
  114. gSelfPSN.highLongOfPSN = 0;                        /* Init to the current process ID */
  115. gSelfPSN.lowLongOfPSN = kCurrentProcess;
  116. err = AECreateDesc(typeProcessSerialNumber,(Ptr)&gSelfPSN,sizeof(ProcessSerialNumber),&gSelfAddress);
  117. }
  118.  
  119. /* ======================================================= */
  120.  
  121. /* Routine: VerifyWindowLayers */
  122. /* Purpose: Verify all windows are at the proper layer */
  123.  
  124. static void VerifyWindowLayers(void)
  125. {
  126. short        Index,theLayer;
  127. WindowPeek    theWindowPeek;
  128. long         *theWindowListPtr,theRefCon;
  129. WindowPtr    theWindowPtr,theOutOfOrderWindowPtr;
  130. Boolean        Out_Of_Place;
  131.  
  132.  
  133. Out_Of_Place = true;
  134. while (Out_Of_Place)
  135.     {
  136.     Mk_ClearLayers();                                /* Clear all arrays, we will refill them */
  137.     theOutOfOrderWindowPtr = nil;
  138.     Out_Of_Place = false;
  139.  
  140.     Index = HighestWindowIndex + 1;
  141.     theWindowListPtr = (long *)lmWindowList;        /* Get the window list start */
  142.     theWindowPeek = (WindowPeek)*theWindowListPtr;    /* Get the window list start */
  143.     while ((theWindowPeek != nil) && (!Out_Of_Place))
  144.         {
  145.         if ((theWindowPeek->visible) && (theWindowPeek->windowKind == userKind))
  146.             {
  147.             theWindowPtr = (WindowPtr)theWindowPeek;/* Get the window pointer */
  148.  
  149.             theRefCon = GetWRefCon(theWindowPtr);
  150.             theRefCon = theRefCon & 0xFF000000;        /* Mask off, to get the layer */
  151.             theLayer = theRefCon >> 24;                /* Move into lower byte */
  152.             if (theLayer < LowestWindowIndex)        /* Pin at 0 */
  153.                 theLayer = LowestWindowIndex;
  154.             if (theLayer > HighestWindowIndex)        /* Pin at top */
  155.                 theLayer = HighestWindowIndex;
  156.             if (theLayer > Index)
  157.                 {
  158.                 Index = theLayer;
  159.                 Out_Of_Place = true;
  160.                 if (theOutOfOrderWindowPtr != nil)
  161.                     SendBehind(theOutOfOrderWindowPtr,theWindowPtr);
  162.                 }
  163.             else if (theLayer < Index)
  164.                 {
  165.                 Index = theLayer;
  166.                 TopMostWindows[theLayer] = theWindowPtr;
  167.                 BottomMostWindows[theLayer]  = theWindowPtr;
  168.                 }
  169.             else
  170.                 BottomMostWindows[theLayer]  = theWindowPtr;
  171.             theOutOfOrderWindowPtr = theWindowPtr;
  172.             }
  173.         theWindowPeek = theWindowPeek->nextWindow;/* Get the next window */
  174.         }
  175.     }
  176.  
  177. }
  178.  
  179. /* ======================================================= */
  180.  
  181. /* Routine: Mk_BehindWindow */
  182. /* Purpose: Get which window to place us behind */
  183.  
  184. WindowPtr Mk_BehindWindow(short theLayer)
  185. {
  186. short        LayerIndex;
  187. WindowPtr    ReturnWindowPtr;
  188.  
  189.  
  190. ReturnWindowPtr = (WindowPtr)-1;                    /* Default to In front of everyone */
  191.  
  192. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  193.  
  194. LayerIndex = HighestWindowIndex;
  195. while ((LayerIndex > theLayer) && (LayerIndex >= LowestWindowIndex))
  196.     {
  197.     if (BottomMostWindows[LayerIndex] != nil)
  198.         ReturnWindowPtr = BottomMostWindows[LayerIndex];
  199.     LayerIndex = LayerIndex - 1;
  200.     }
  201.  
  202. return(ReturnWindowPtr);
  203. }
  204.  
  205. /* ======================================================= */
  206.  
  207. /* Routine: Mk_RegisterWindow */
  208. /* Purpose: Place layer in RefCon and verify layers */
  209.  
  210. void Mk_RegisterWindow(WindowPtr theWindowPtr,short theLayer)
  211. {
  212. long    theRefCon;
  213. long    theLLayer;
  214.  
  215.  
  216. theRefCon = GetWRefCon(theWindowPtr);                /* Get the window refcon */
  217. theRefCon = theRefCon & 0x00FFFFFF;                    /* Mask off, in case something else is there */
  218. theLLayer = theLayer;                                /* Get the window layer */
  219. theLLayer = theLLayer << 24;                        /* Move into upper byte */
  220. theRefCon = theRefCon | theLLayer;                    /* Mask layer into refcon */
  221. SetWRefCon(theWindowPtr, theRefCon);                /* Set the new refcon */
  222.  
  223. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  224. }
  225.  
  226. /* ======================================================= */
  227.  
  228. /* Routine: Mk_ClearLayers */
  229. /* Purpose: Init our arrays for layered windows */
  230.  
  231. void Mk_ClearLayers(void)
  232. {
  233. short    Index;
  234.  
  235.  
  236. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  237.     {
  238.     TopMostWindows[Index] = nil;
  239.     BottomMostWindows[Index] = nil;
  240.     }
  241. }
  242.  
  243. /* ======================================================= */
  244.  
  245. /* Routine: Mk_HiliteWindow */
  246. /* Purpose: Hilite our layered window */
  247.  
  248. void Mk_HiliteWindow(WindowPtr theWindowPtr)
  249. {
  250. WindowPeek    theWindowPeek;
  251. long         *theWindowListPtr;
  252. WindowPtr    WasHilighted,CkHilighted,BehindWindow;
  253. long        theRefCon;
  254. short        theLayer,theWasLayer;
  255.  
  256.  
  257. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  258.  
  259. theRefCon = GetWRefCon(theWindowPtr);
  260. theRefCon = 0xFF000000 & theRefCon;                    /* Mask for top byte */
  261. theLayer = theRefCon >> 24;                            /* Move into lower byte */
  262. if (theLayer < LowestWindowIndex)                    /* Pin at 0 */
  263.     theLayer = LowestWindowIndex;
  264. if (theLayer > HighestWindowIndex)                    /* Pin at top */
  265.     theLayer = HighestWindowIndex;
  266.  
  267. theWindowListPtr = (long *)lmWindowList;            /* Get the window list start */
  268. theWindowPeek = (WindowPeek)*theWindowListPtr;        /* Get the window list start */
  269. WasHilighted = nil;
  270. while (theWindowPeek != nil)
  271.     {
  272.     if ((theWindowPeek->visible) && (theWindowPeek->windowKind == userKind))
  273.         {
  274.         if (theWindowPeek->hilited)
  275.             {
  276.             CkHilighted = (WindowPtr)theWindowPeek;
  277.             theRefCon = GetWRefCon(CkHilighted);
  278.             theRefCon = 0xFF000000 & theRefCon;        /* Mask for top byte */
  279.             theWasLayer = theRefCon >> 24;            /* Move into lower byte */
  280.             if (theWasLayer == theLayer)
  281.                 WasHilighted = CkHilighted;
  282.             }
  283.         }
  284.     theWindowPeek = theWindowPeek->nextWindow;
  285.     }
  286.  
  287. if (theWindowPtr != WasHilighted)
  288.     {
  289.     if (WasHilighted != nil)
  290.         {
  291.         theRefCon = GetWRefCon(WasHilighted);
  292.         theRefCon = 0xFF000000 & theRefCon;            /* Mask for top byte */
  293.         theWasLayer = theRefCon >> 24;                /* Move into lower byte */
  294.         if (theWasLayer < LowestWindowIndex)        /* Pin at 0 */
  295.             theWasLayer = LowestWindowIndex;
  296.         if (theWasLayer > HighestWindowIndex)        /* Pin at top */
  297.             theWasLayer = HighestWindowIndex;
  298.         if (theWasLayer == theLayer)
  299.             {
  300.             HiliteWindow(WasHilighted, false);
  301.             myEvent.message = (long)WasHilighted;
  302.             myEvent.modifiers = 0;
  303.             DoActivate();                            /* Deactivate, do links */
  304.             }
  305.         }
  306.  
  307.     HiliteWindow(theWindowPtr, true);
  308.     myEvent.message = (long)theWindowPtr;
  309.     myEvent.modifiers = 1;
  310.     DoActivate();                                    /* Activate, do links */
  311.  
  312.     BehindWindow = Mk_BehindWindow(theLayer);        /* Move to correct layer on the screen */
  313.     if ((long)BehindWindow == -1L)
  314.         BringToFront(theWindowPtr);
  315.     else
  316.         SendBehind(theWindowPtr, BehindWindow);
  317.  
  318.     TopMostWindows[theLayer] = theWindowPtr;
  319.     }
  320.  
  321. }
  322.  
  323. /* ======================================================= */
  324.  
  325. /* Routine: Mk_DragWindow */
  326. /* Purpose: Drag our layered window */
  327.  
  328. void Mk_DragWindow(WindowPtr theWindowPtr,Point where, Rect bounds)
  329. {
  330. GrafPtr            savePort;
  331. CGrafPtr        WMgrPort;
  332. RgnHandle        hRegion,dragRgn;
  333. WindowPeek        theWindowPeek;
  334. long            result;
  335. short            Horz,Vert;
  336. CWindowPtr        theCWindowPtr;
  337. Rect            portBounds;
  338. PixMapHandle    thePixMapHandle;
  339.  
  340.  
  341. if (WaitMouseUp())
  342.     {
  343.     theWindowPeek = (WindowPeek)theWindowPtr;
  344.     theCWindowPtr = (CWindowPtr)theWindowPtr;
  345.  
  346.     GetPort(&savePort);
  347.     if (Has.ColorQD)
  348.         GetCWMgrPort(&WMgrPort);
  349.     else
  350.         GetWMgrPort((GrafPtr *)&WMgrPort);
  351.     SetPort((GrafPtr)WMgrPort);
  352.     hRegion = GetGrayRgn();
  353.     SetClip(hRegion);
  354.  
  355. #if defined(THINK_C) || defined(THINK_CPLUS) || defined(__SC__)
  356.     ClipAbove(theWindowPeek);
  357. #else
  358.     ClipAbove((WindowRef)theWindowPeek);
  359. #endif
  360.  
  361.     dragRgn = NewRgn();
  362.     CopyRgn(theWindowPeek->strucRgn, dragRgn);
  363.  
  364.     result = DragGrayRgn(dragRgn, where, &bounds, &bounds, 0, nil);
  365.     Horz = (result & 0x0000FFFF);
  366.     Vert = (result >> 16) & 0x0000FFFF;
  367.  
  368.     if ((Vert != 0x8000) && (Horz != 0x8000))
  369.         {
  370.         if ((theCWindowPtr->portVersion & 0xC000) != 0)
  371.             {
  372.             thePixMapHandle = theCWindowPtr->portPixMap;
  373.             portBounds = (*thePixMapHandle)->bounds;
  374.             }
  375.         else
  376.             portBounds = theWindowPtr->portBits.bounds;
  377.  
  378.         Horz = Horz + (theWindowPtr->portRect.left - portBounds.left);
  379.         Vert = Vert + (theWindowPtr->portRect.top - portBounds.top);
  380.  
  381.         MoveWindow(theWindowPtr, Horz, Vert, false);
  382.         }
  383.  
  384.     DisposeRgn(dragRgn);
  385.     SetPort(savePort);
  386.     }
  387.  
  388. }
  389.  
  390. /* ======================================================= */
  391.  
  392. /* Routine: Mk_Is_FrontWindow */
  393. /* Purpose: Get the front window */
  394.  
  395. Boolean Mk_Is_FrontWindow(WindowPtr theWindowPtr)
  396. {
  397. Boolean    IsFront;
  398. short    Index;
  399.  
  400.  
  401. IsFront = false;
  402. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  403.     {
  404.     if (TopMostWindows[Index] == theWindowPtr)
  405.         IsFront = true;
  406.     }
  407.  
  408. return(IsFront);
  409. }
  410.  
  411. /* ======================================================= */
  412.  
  413. /* Routine: Mk_CloseLayeredWindow */
  414. /* Purpose: Close a layered window */
  415.  
  416. void Mk_CloseLayeredWindow(WindowPtr theWindowPtr)
  417. {
  418. short    Index;
  419.  
  420.  
  421. for (Index = LowestWindowIndex; Index <= HighestWindowIndex; Index++)
  422.     {
  423.     if (TopMostWindows[Index] == theWindowPtr)
  424.         TopMostWindows[Index] = nil;
  425.     if (BottomMostWindows[Index] == theWindowPtr)
  426.         BottomMostWindows[Index] = nil;
  427.     }
  428. VerifyWindowLayers();                                /* Make sure our tables are up to date */
  429. }
  430.  
  431. /* ======================================================= */
  432.  
  433. /* Routine: GetPreferences */
  434. /* Purpose: Get the preferences */
  435.  
  436. void GetPreferences(void)
  437. {
  438. short        foundVRefNum,PrefsRefNum,FormatRevision,thePrefsFormatRevision;
  439. long        result,foundDirID,DataSize,count,PrefsRecSize;
  440. OSErr        theError;
  441. Boolean        GotPreferences,HasFindFolder;
  442. Str255        thePrefsFilename;
  443. Handle        PrefsHandle;
  444. FSSpec        PrefsFSSpec;
  445. OSType        PrefCreator,PrefType;
  446. SysEnvRec    theEnv;
  447.  
  448.  
  449. /* Get parameters to use */
  450. U_GetPrefParams(&PrefCreator,&PrefType,&thePrefsFilename,&PrefsRecSize,&thePrefsFormatRevision);
  451.  
  452. GotPreferences = false;                                /* No prefs yet */
  453. HasFindFolder = false;                                /* No FindFolder routine avail yet */
  454. PrefsRefNum = 0;                                    /* No prefs file yet */
  455.  
  456. if (Has.Gestalt)                                    /* Must have Gestalt */
  457.     {
  458.     theError = Gestalt(gestaltFindFolderAttr,&result);/* Need FindFolder */
  459.     if ((theError == 0) && ((result & (0x00000001 << gestaltFindFolderPresent)) != 0))
  460.         HasFindFolder = true;
  461.  
  462.     if (HasFindFolder)                                /* Must have FindFolder */
  463.         {
  464.         theError = FindFolder(kOnSystemDisk,kPreferencesFolderType,kCreateFolder,&foundVRefNum,&foundDirID);/* Get preference folder */
  465.         if (theError == 0)
  466.             {
  467.             theError = FSMakeFSSpec(foundVRefNum,foundDirID,thePrefsFilename,&PrefsFSSpec);
  468.             if (theError == fnfErr)                    /* File not found */
  469.                 theError = FSpCreate(&PrefsFSSpec,PrefCreator,PrefType,0);/* Create the file */
  470.             theError = FSpOpenDF(&PrefsFSSpec,fsRdWrPerm,&PrefsRefNum);/* Open the file */
  471.             }
  472.         }
  473.     else
  474.         {
  475.         theError = SysEnvirons(1,&theEnv);            /* Get volume environs */
  476.         theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  477.         if (theError == fnfErr)                        /* File not found */
  478.             {
  479.             theError = Create(thePrefsFilename,theEnv.sysVRefNum,PrefCreator,PrefType);/* Create the file */
  480.             theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  481.             }
  482.         }
  483.  
  484.     if (theError == 0)
  485.         {
  486.         theError = GetEOF(PrefsRefNum,&DataSize);    /* See if data in the file */
  487.         if (DataSize > 0)                            /* Must have data in the file to go on */
  488.             {
  489.             count = 2;                                /* Revision number size */
  490.             theError = FSRead(PrefsRefNum,&count,&FormatRevision);/* Get revision number */
  491.             theError = SetFPos(PrefsRefNum,fsFromStart,0);/* Beginning again */
  492.  
  493.             if ((FormatRevision == thePrefsFormatRevision) && (PrefsRecSize > 0))/* Only do if up to date revision */
  494.                 {
  495.                 PrefsHandle = NewHandleClear(PrefsRecSize);/* Get space for the prefs */
  496.                 if (PrefsHandle != nil)                /* Make sure we got our little tiny handle */
  497.                     {
  498.                     HLock(PrefsHandle);                /* Lock this for safety */
  499.                     count = PrefsRecSize;            /* See how much data to read */
  500.                     theError = FSRead(PrefsRefNum,&count,*PrefsHandle);/* Read it on in */
  501.                     if (theError == 0)
  502.                         U_GetPreferences(PrefsHandle);/* Let the user get the prefs */
  503.  
  504.                     GotPreferences = true;            /* Got our preferences */
  505.                     HUnlock(PrefsHandle);            /* OK to unlock now */
  506.                     DisposeHandle(PrefsHandle);        /* All done with this record  */
  507.                     }
  508.                 }
  509.             else
  510.                 U_ReadPrefsPrivate(PrefsRefNum);    /* Let the user read the prefs himself */
  511.             }
  512.         if (PrefsRefNum != 0)                        /* Done with the file , close it */
  513.             theError = FSClose(PrefsRefNum);
  514.         }
  515.     }
  516.  
  517. if (!GotPreferences )                                /* If we did not get prefs , use default values */
  518.     SetPreferences();                                /* Set the default values */
  519.  
  520. }
  521.  
  522. /* ======================================================= */
  523.  
  524. /* Routine: SetPreferences */
  525. /* Purpose: Set new preferences */
  526.  
  527. void SetPreferences(void)
  528. {
  529. Str255        thePrefsFilename;
  530. OSErr        theError;
  531. long        result,foundDirID,count,PrefsRecSize;
  532. short        foundVRefNum,PrefsRefNum,thePrefsFormatRevision;
  533. Handle        PrefsHandle;
  534. Boolean        HasFindFolder;
  535. FSSpec        PrefsFSSpec;
  536. OSType        PrefCreator,PrefType;
  537. SysEnvRec    theEnv;
  538.  
  539.  
  540. /* Get parameters to use */
  541. U_GetPrefParams(&PrefCreator,&PrefType,&thePrefsFilename,&PrefsRecSize,&thePrefsFormatRevision);
  542. PrefsRefNum = 0;
  543.  
  544. PrefsHandle = NewHandleClear(PrefsRecSize);            /* Allocate the prefs space holder */
  545.  
  546. if (PrefsHandle != nil)
  547.     {
  548.     HLock(PrefsHandle);                                /* Lock for safety */
  549.  
  550.     U_SetPreferences(PrefsHandle);                    /* Let the user set the other pref values */
  551.  
  552.     HasFindFolder = false;
  553.     if (Has.Gestalt)                                /* Must have Gestalt */
  554.         {
  555.         theError = Gestalt(gestaltFindFolderAttr,&result);/* Need FindFolder */
  556.         if ((theError == 0) && ((result & (0x00000001 << gestaltFindFolderPresent)) != 0))/* See if FindFolder */
  557.             HasFindFolder = true;
  558.  
  559.         if (HasFindFolder )                            /* Must have FindFolder */
  560.             {
  561.             theError = FindFolder(kOnSystemDisk,kPreferencesFolderType,kCreateFolder,&foundVRefNum,&foundDirID);
  562.             if (theError == 0)
  563.                 {
  564.                 theError = FSMakeFSSpec(foundVRefNum,foundDirID,thePrefsFilename,&PrefsFSSpec);
  565.                 if (theError == fnfErr)                /* File not found */
  566.                     theError = FSpCreate(&PrefsFSSpec,PrefCreator,PrefType,0);/* Create the file */
  567.                 theError = FSpOpenDF(&PrefsFSSpec,fsRdWrPerm,&PrefsRefNum);/* Open the file */
  568.                 }
  569.             }
  570.         else
  571.             {
  572.             theError = SysEnvirons(1,&theEnv);        /* Get volume environs */
  573.             theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  574.             if (theError == fnfErr)                    /* File not found */
  575.                 {
  576.                 theError = Create(thePrefsFilename,theEnv.sysVRefNum,PrefCreator,PrefType);/* Create the file */
  577.                 theError = FSOpen(thePrefsFilename,theEnv.sysVRefNum,&PrefsRefNum);/* Open the file */
  578.                 }
  579.             }
  580.  
  581.         if (theError == 0)
  582.             {
  583.             count = PrefsRecSize;
  584.             theError = FSWrite(PrefsRefNum,&count,*PrefsHandle);/* Write new prefs */
  585.             theError = SetEOF(PrefsRefNum,count);    /* Reset EOF */
  586.  
  587.             if (PrefsRefNum != 0)
  588.                 theError = FSClose(PrefsRefNum);    /* Close file */
  589.  
  590.             HUnlock(PrefsHandle);
  591.             DisposeHandle(PrefsHandle);                /* Done with Prefs handle */
  592.             }
  593.         }
  594.     }
  595.  
  596. }
  597.  
  598. /* ======================================================= */
  599.  
  600. void PositionWindow(WindowPtr theWindow,Point  WantLocation,Point DefaultPosition)
  601. {
  602. Boolean        FitsOK;
  603. Rect        WindowRect;
  604. GrafPtr        theDesktopPort;
  605. RgnHandle    theRgn,the2Rgn;
  606.  
  607.  
  608. FitsOK = false;                                        /*Init to not on current screen(s) */
  609. WindowRect = theWindow->portRect;                    /* Save the rect to get the size */
  610. OffsetRect(&WindowRect,-WindowRect.left,-WindowRect.top);    /* Offset to 0,0 */
  611. OffsetRect(&WindowRect,WantLocation.h,WantLocation.v);        /* Offset to wanted location */
  612.  
  613. GetWMgrPort(&theDesktopPort);                        /* Get the screen */
  614.  
  615. theRgn = NewRgn();                                    /* Make temp regions */
  616. the2Rgn = NewRgn();
  617. RectRgn(theRgn,&WindowRect);                        /* First region to our window rectangle on the screen */
  618. SectRgn(theRgn,theDesktopPort->visRgn,the2Rgn);        /* Do the intersection with the screen and window */
  619. if (EqualRgn(theRgn,the2Rgn))                        /* If all of window in the screen area then ... */
  620.     FitsOK = true;                                    /* ...all of the window is on the screen area */
  621. if (EmptyRgn(the2Rgn))
  622.     FitsOK = false;
  623.  
  624. DisposeRgn(theRgn);                                    /* Dispose of temp regions */
  625. DisposeRgn(the2Rgn);
  626. if ((FitsOK) && ((WantLocation.h != 0) || (WantLocation.v != 0)))    /* If all of window in the screen area then ... */
  627.     MoveWindow(theWindow,WantLocation.h,WantLocation.v,false);    /* Move to saved location */
  628. else
  629.     MoveWindow(theWindow,DefaultPosition.h,DefaultPosition.v,false); /* Move to original location */
  630. }
  631.  
  632. /* ======================================================= */
  633.  
  634. /* Routine: PStrCopy */
  635. /* Purpose: Copy Pascal strings */
  636.  
  637. void PStrCopy(Str255 *SourceString, Str255 *DestString)/* Copy Pascal strings */
  638. {
  639.  
  640.  
  641. *DestString[0] = *SourceString[0];                    /* Get the string size */
  642. if (*DestString[0] != 0)                            /* Do if there is anything in the string */
  643.     BlockMove(SourceString,DestString,*DestString[0]+1);
  644. }
  645.  
  646. /* ======================================================= */
  647.  
  648. /* Routine: PStrCat */
  649. /* Purpose: Concat Pascal strings */
  650.  
  651. void PStrCat(Str255 *SourceString, Str255 *DestString)/* Concat Pascal strings */
  652. {
  653. short    OldDestLength,NewDestLength,SizeFromSource;
  654.  
  655.  
  656. OldDestLength = *DestString[0];                        /* Get the string old length */
  657. SizeFromSource = *SourceString[0];                    /* Get the source length */
  658. NewDestLength = OldDestLength + SizeFromSource;        /* Get the string new length */
  659. if (NewDestLength > 255)                            /* Compare to length of the final string */
  660.     {
  661.     NewDestLength = 255;                            /* The string final length */
  662.     SizeFromSource = 255 - OldDestLength;            /* The string final length */
  663.     }
  664.  
  665. *DestString[0] = NewDestLength;                        /* Set the string length */
  666. if (SizeFromSource > 0)                                /* Do if there is anything in the string */
  667.     BlockMove((Ptr)((long)SourceString + 1L),(Ptr)((long)DestString+OldDestLength+1L),SizeFromSource);
  668. }
  669.  
  670. /* ======================================================= */
  671.  
  672. /* Routine: PStrCmp */
  673. /* Purpose: Compare Pascal strings for exact match, case sensitive */
  674.  
  675. Boolean PStrCmp(StringPtr Source1String,StringPtr Source2String)/* Compare Pascal strings */
  676. {
  677. short        theLength,Index;
  678. Boolean        theSame;
  679.  
  680.  
  681. theSame = false;                                    /* Init to different */
  682. theLength = *Source1String++;                        /* Get length of one string */
  683. if (theLength == *Source2String++)                    /* Compare to length of other string, easy and quick check */
  684.     {
  685.     theSame = true;                                    /* Init to same, now we will check each character */
  686.     for (Index=1; Index <= theLength; Index++)        /* Compare to length of other string, easy and quick check */
  687.         {
  688.         if (*Source1String++ != *Source2String++)    /* See if this character is the same */
  689.             theSame = false;                        /* Different */
  690.         }
  691.     }
  692.  
  693. return(theSame);
  694. }
  695.  
  696. /* ======================================================= */
  697.  
  698. /* Routine: GetUserEvent */
  699. /* Purpose: See if any user events are available */
  700.  
  701. void GetUserEvent(UserEventPRec TheUserEvent)
  702. { 
  703. UserEventHRec    NextUserEvent;                        /* The next user event */
  704.  
  705.  
  706. TheUserEvent->ID = UserEvent_None;                    /* Set ID to no events are available */
  707. if (UserEventList != NIL)                            /* Get first entry in the list */
  708.     {
  709.     HLock((Handle)UserEventList);                    /* Lock for safety */
  710.     TheUserEvent->ID = (*UserEventList)->ID;        /* The event ID */
  711.     TheUserEvent->ID2 = (*UserEventList)->ID2;        /* The optional ID */
  712.     TheUserEvent->Data1 = (*UserEventList)->Data1;    /* The optional data */
  713.     TheUserEvent->Data2 = (*UserEventList)->Data2;    /* The optional data */
  714.     TheUserEvent->theHandle = (*UserEventList)->theHandle;/* The optional handle */
  715.     NextUserEvent = (*UserEventList)->Next;            /* The next list */
  716.  
  717.     DisposHandle((Handle)UserEventList);            /* Remove this list item */
  718.     UserEventList = NextUserEvent;                    /* Make the next item the new first item */
  719.     }
  720. }
  721.  
  722. /* ======================================================= */
  723.  
  724. /* Routine: Add_UserEvent */
  725. /* Purpose: Add a user event */
  726.  
  727. void Add_UserEvent(short ID1,short  ID2,long Data1,long Data2,Handle  theHandle)
  728. { 
  729. UserEventHRec    NewUserEvent;                        /* The new user event */
  730. UserEventHRec    theUserEvent;                        /* The user event */
  731.  
  732.  
  733. NewUserEvent = (UserEventHRec)NewHandle(sizeof(UserEventRec));/* Allocate a record */
  734. if (NewUserEvent != NIL)                            /* Only do if we got the new record */
  735.     {
  736.     HLock((Handle)NewUserEvent);                    /* Lock for safety */
  737.     (*NewUserEvent)->ID = ID1;                        /* The event ID */
  738.     (*NewUserEvent)->ID2 = ID2;                        /* The optional ID */
  739.     (*NewUserEvent)->Data1 = Data1;                    /* The optional data */
  740.     (*NewUserEvent)->Data2 = Data2;                    /* The optional data */
  741.     (*NewUserEvent)->theHandle = theHandle;            /* The optional handle */
  742.     (*NewUserEvent)->Next = NIL;                    /* No next item after this one */
  743.  
  744.     if (UserEventList == NIL)                        /* See if anyone is in the list yet */
  745.         UserEventList = NewUserEvent;                /* Make this one the first in the list */
  746.     else
  747.         {
  748.         theUserEvent = UserEventList;                /* Get the first one */
  749.         while ((*theUserEvent)->Next != NIL)        /* Get the next one */
  750.             {
  751.             theUserEvent = (*theUserEvent)->Next;
  752.             }
  753.         (*theUserEvent)->Next = NewUserEvent;        /* Tack on to the end */
  754.         }
  755.     }
  756. }
  757.  
  758. /* ======================================================= */
  759.  
  760. /* Routine: SetNameForPopup */
  761. /* Purpose: Set the title for a popup control */
  762.  
  763. void SetNameForPopup(ControlHandle theControl)
  764. { 
  765. Handle    theHandle;                                    /* The resource handle */
  766. ResType    theType;                                    /* Returned type */
  767. short    theID;                                        /* Returned ID */
  768. short    theMenuID;                                    /* Menu ID */
  769.  
  770.  
  771. theMenuID = GetCtlMax(theControl);                    /* Get the menu ID */
  772. theHandle = Get1Resource('MENU', theMenuID);        /* See if the resource is out there */
  773. if (theHandle != nil)                                /* See if we got the menu */
  774.     GetResInfo(theHandle,&theID,&theType,sTemp);    /* Get the title */
  775. else                                                /* Else no menu here */
  776.     sTemp[0] = 0;                                    /* Get the title */
  777. SetCTitle(theControl,sTemp);                        /* Set the title */
  778. }
  779.  
  780. /* ======================================================= */
  781.  
  782. /* Routine: Make_A_List */
  783. /* Purpose: This is a routine used to make a new list */
  784.  
  785. void Make_A_List(ListHandle *theList,Rect *theListRect,WindowPtr theWindow,short theStringResourceID,
  786.     short theSize,short theFont,Style theStyle,Boolean InDialog)
  787. {
  788. Point    cSize;                                        /* Use to point to proper row */
  789. Handle    theHandle;                                    /* Temp Handle */
  790. Rect    dataBounds;
  791.  
  792.  
  793. TextSize(theSize);                                    /* Set text size */
  794. TextFont(theFont);                                    /* Set text font */
  795. TextFace(theStyle);                                    /* Set text style */
  796.  
  797. tempRect = *theListRect;
  798. tempRect.right = tempRect.right - 15;                /* Go inside the scroll bar area */
  799. SetRect(&dataBounds, 0, 0, 1, 0);                    /* Make the empty list */
  800. cSize.h = theListRect->right - 15 - theListRect->left;/* Get the width of the list */
  801. cSize.v = 0;                                        /* Set the HEIGHT of each list element, based on font selected */
  802.  
  803. *theList = LNew(&tempRect, &dataBounds, cSize, 0, theWindow, TRUE, FALSE, FALSE, TRUE);/* Create the list */
  804. (**theList)->selFlags = lOnlyOne + lNoNilHilite;    /* Set for only one active item at a time */
  805. LDoDraw(FALSE,*theList);                            /* Do not Draw this list structure */
  806.  
  807. theHandle = Get1Resource('STR#',theStringResourceID);/* See if any strings */
  808. if (theHandle != NIL)
  809.     {
  810.     cSize.h = 0;                                    /* Point to the correct column, starts at zero */
  811.     cSize.v = -1;                                    /* Point to the correct row, starts at zero */
  812.     do
  813.         {
  814.         GetIndString(sTemp, theStringResourceID, cSize.v + 2);/* Get the new string */
  815.         if (sTemp[0] > 0)
  816.             Add_List_String(sTemp, *theList, &cSize);/* Add in the new string */
  817.         }
  818.     while (sTemp[0] != 0);                            /* Add all the strings in this resource */
  819.     }
  820.  
  821. LDoDraw(TRUE,*theList);                                /* Draw this list structure */
  822. cSize.h = 0;                                        /* All elements are in column 0e */
  823. cSize.v = 0;                                         /* Select the first list element */
  824. LSetSelect(TRUE, cSize,*theList);
  825.  
  826. if (InDialog)
  827.     TextFont(systemFont);                            /* Back to the system font */
  828. else
  829.     TextFont(applFont);                                /* Back to the application font */
  830. TextSize(12);                                        /* Back to the application size */
  831. TextFace(0);                                        /* Set text style */
  832. }
  833.  
  834. /* ======================================================= */
  835.  
  836. void Play_The_Sound(short ResID)
  837. {
  838. Handle        ResHandle;                                /* The sound resource handle */
  839. short        SndResourceID;                            /* Sound resource ID */
  840. Str255        SndName;                                /* Sound name*/
  841. ResType        theType;                                /* Resource type */
  842. OSErr        MyErr;                                    /* Error flag */
  843.  
  844.  
  845. ResHandle = Get1Resource('snd ', ResID);            /* See if the resource is out there */
  846. if (ResHandle != NIL)                                /* Only do if we got the sound */
  847.     {
  848.     GetResInfo(ResHandle,&SndResourceID,&theType,SndName);
  849. #if defined(THINK_C) || defined(THINK_CPLUS) || defined(__SC__)
  850.     MyErr = SndPlay(NIL,ResHandle,FALSE);
  851. #else
  852.     MyErr = SndPlay(NIL,(SndListHandle)ResHandle,FALSE);
  853. #endif
  854.     ReleaseResource(ResHandle);
  855.     }
  856. }
  857.  
  858. /* ======================================================= */
  859.  
  860. /* Routine: Add_List_String */
  861. /* Purpose: This is a routine used to add strings to an existing list */
  862.  
  863. void Add_List_String(Str255 theString,ListHandle theList,Point *cSize) 
  864. {
  865. short    theRow;                                        /* The Row that we are adding */
  866.  
  867.  
  868. if (theList != NIL)  
  869.     {
  870.     cSize->h = 0;                                    /* Point to the correct column */
  871.     theRow = LAddRow(1, 32000, theList);            /* Add another row at the end of the list */
  872.     cSize->v = theRow;                                /* Point to the row just added */
  873.     LSetCell(&theString[1], theString[0], *cSize,theList);/* Place string in row just created */
  874.     }
  875. }
  876.  
  877. /* ======================================================= */
  878.  
  879. /* Routine: Get_TE_String */
  880. /* Purpose: This is a routine used to get a string from a TE area, limited to 250 characters */
  881.  
  882. void Get_TE_String(TEHandle theTEArea,Str255 *theString)
  883. { 
  884. short Index;                                        /* Use to loop thru the characters */
  885. short TitleLength;                                    /* Number of characters to do */
  886. CharsHandle theCharsHandle;                            /* Used to get global edit text */
  887. Ptr theStringPtr;                                    /* Pointer to the string, byte level */
  888. Ptr theTECharPtr;                                    /* Pointer to the string, byte level */
  889.  
  890.  
  891. theCharsHandle = TEGetText(theTEArea);                /* Get the character handle */
  892. HLock ( ( Handle ) theCharsHandle );                /* Lock it for safety */
  893. theTECharPtr = (Ptr)*theCharsHandle;                /* Get string Ptr */
  894. TitleLength = (*theTEArea)->teLength;                /* Get the number of characters */
  895. *theString[0] = 0;                                    /* Start with an empty string */
  896. if (TitleLength > 0) 
  897.     {
  898.     theStringPtr = (Ptr)((long)theString + (long)1);/* Start of the string data */
  899.     if (TitleLength > 250) 
  900.         TitleLength = 250;
  901.     for (Index = 0; Index < TitleLength; Index++)
  902.         *theStringPtr++ = (char)(*theTECharPtr++);
  903.     *theString[0] = TitleLength;
  904.     }
  905. }
  906.  
  907. /* ======================================================= */
  908.  
  909. /* Routine: Make_TE_Area */
  910. /* Purpose: This is a routine used to create a TE area */
  911.  
  912. void Make_TE_Area(TEHandle *theTEArea,Rect *Position,short theFontSize,
  913.     short theFont,short DefaultStringID)
  914. {
  915. FontInfo    ThisFontInfo;                            /* Use to get the font data */
  916.  
  917.  
  918. TextSize(theFontSize);                                /* Set the size */
  919. TextFont(theFont);                                    /* Set the font */
  920. GetFontInfo(&ThisFontInfo);                            /* Get Ascent height for positioning */
  921.  
  922. tempRect = *Position;                                /* Get the rect */
  923. FrameRect(&tempRect);                                /* Frame this TE area */
  924. InsetRect(&tempRect, 3, 3);                            /* Indent for TE inside of box */
  925. *theTEArea = TENew(&tempRect, &tempRect);            /* Create the TE area */
  926. if (theInput != NIL)                                /* See if there is already a TE area */
  927.     TEDeactivate(theInput);                            /* Yes, so turn it off */
  928.  
  929. theInput = *theTEArea;                                /* Activate the TE area */
  930. GetIndString(sTemp, DefaultStringID, 1);            /* Get the default string */
  931. TESetText(&sTemp[1], sTemp[0], theInput);            /* Place default text in the TE area */
  932. TEActivate(theInput);                                /* Make the TE area active */
  933.  
  934. TextSize(12);                                        /* Restore the size */
  935. TextFont(applFont);                                    /* Restore the font */
  936. }
  937.  
  938. /* ======================================================= */
  939.  
  940. /* Routine: Plot_Sicn */
  941. /* Purpose: This is a routine used to plot an Sicn, small 16x16 icon */
  942.  
  943. void Plot_Sicn(short theSicnID,Rect *Position)
  944. { 
  945. typedef struct SmallIconRec{
  946.     long    theIcon[16];
  947. }SmallIconRec,*SmallIconPtr,**SmallIconHand;
  948.  
  949. SmallIconHand    SmallIcon;                            /* Handle to the SICN resource */
  950. BitMap            theBitMap;                            /* Bitmap for plotting */
  951. Rect            sourceRect, DestRect;                /* Rects for plotting */
  952. GrafPtr            thePort;                            /* Port to draw on to */
  953.  
  954.  
  955. SmallIcon = (SmallIconHand)GetResource('SICN', theSicnID);/* Get the resource */
  956. if (SmallIcon != NIL)                                /* Do if there is a resource */
  957.     {
  958.     SetRect(&sourceRect, 0, 0, 16, 16);                /* Sicns are 16 x 16 */
  959.     DestRect = *Position;                            /* Destination */
  960.     theBitMap.baseAddr = (Ptr)&(*SmallIcon)->theIcon;/* Base address of the bitmap */
  961.     theBitMap.rowBytes = 2;                            /* 2*8 = 16 */
  962.     theBitMap.bounds = sourceRect;                    /* Source rect size */
  963.     GetPort(&thePort);                                /* Get the current port */
  964.     CopyBits(&theBitMap, &thePort->portBits, &sourceRect, &DestRect, srcCopy, NIL);/* Plot it */
  965.     }
  966. }
  967.  
  968. /* ======================================================= */
  969.  
  970. /* Routine: HandleWScrollBar */
  971. /* Purpose: This is a routine used to handle a scrollbar */
  972.  
  973. void HandleWScrollBar (Point myPt,short code,short Increment,short LIncrement,ControlHandle theControl)
  974. {
  975. short    theValue;                                    /* Value of the scrollbar */
  976. long    MaxTick;                                    /* Timer used for repeat scrolling */
  977. Boolean    FirstTime;                                    /* Flag to start scrolling */
  978. short    Start,Stop;
  979.  
  980.  
  981. Start = GetCtlMin(theControl);
  982. Stop = GetCtlMax(theControl);
  983.  
  984. FirstTime = TRUE;                                    /* Do the scroll the first time also */
  985. while (StillDown() || FirstTime)                    /* Do the scroll as long as the button is down */
  986.     {                                                /* Timer used for repeat scrolling */
  987.     FirstTime = FALSE;                                /* Do the scroll the first time only unless auto */
  988.     HiliteControl(theControl, code);                /* Darken the arrow */
  989.     theValue = GetCtlValue(theControl);                /* Get current state */
  990.  
  991.     if (code == inUpButton)                            /* See if in the up/left arrow */
  992.         {
  993.         theValue = theValue - Increment;            /* Subtract the single decrement */
  994.         if (theValue < Start)                        /* Check for boundary conditions */
  995.             theValue = Start;                        /* Bump at the start value */
  996.         }
  997.  
  998.     if (code == inDownButton)                        /* See if in the down/right arrow */
  999.         {
  1000.         theValue = theValue + Increment;            /* Add the single increment */
  1001.         if (theValue > Stop)                         /* Check for boundary conditions */
  1002.             theValue = Stop;                        /* Bump at the stop value */
  1003.         }
  1004.  
  1005.     if (code == inPageUp)                            /* See if in the up/left grey area */
  1006.         {
  1007.         theValue = theValue - LIncrement;            /* Subtract the page increment */
  1008.         if (theValue < Start)                         /* Check for boundary conditions */
  1009.             theValue = Start;                        /* Bump at the Start value */
  1010.         }
  1011.  
  1012.     if (code == inPageDown)                            /* See if in the down/right grey area */
  1013.         {
  1014.         theValue = theValue + LIncrement;            /* Add the page increment */
  1015.         if (theValue > Stop)                        /* Check for boundary conditions */
  1016.             theValue = Stop;                        /* Bump at the Stop value */
  1017.         }
  1018.  
  1019.     if (code == inThumb)                            /* See if in the drag box area */
  1020.         {
  1021.         code = TrackControl(theControl, myPt, NIL);    /* Let the OS drag it around */
  1022.         theValue = GetCtlValue(theControl);            /* Get current state */
  1023.         }
  1024.  
  1025.     SetCtlValue(theControl, theValue);                /* Set new state */
  1026.  
  1027.     MaxTick = TickCount() + 9;                        /* Time delay for auto-scroll */
  1028.     do                                                /* Start of delay routine */
  1029.         {}
  1030.     while ((Button()) && (TickCount() < MaxTick));    /* Exit when time up or mouse button up */
  1031.     HiliteControl(theControl, 0);                    /* Lighten the arrow */
  1032.     }                                                /* End for StillDown */
  1033. }
  1034.  
  1035. /* ======================================================= */
  1036.  
  1037. /* Routine: mySelectDlgFilter */
  1038. /* Purpose: Filter routine for Select Volume routine */
  1039.  
  1040. static pascal short mySelectDlgFilter (short item,DialogPtr theDialog,Ptr myDataPtr)
  1041. {
  1042. short            theItem;
  1043. short            theWidth;
  1044. short            theNameWidth;
  1045. short            DType;
  1046. Handle            DItem;
  1047. ControlHandle    CItem;
  1048. Str255            sTemp;
  1049. Str255            theName;
  1050. Str255            LastChar;
  1051. Point            cSize;
  1052. Rect            dataBounds;
  1053. Boolean            NamesAreSame;
  1054.  
  1055.  
  1056. theItem = item;
  1057.  
  1058. if (theItem == sfHookNullEvent)
  1059.     {
  1060.     NamesAreSame = PStrCmp((StringPtr)&Last_Name,(StringPtr)&Files.theStdFileReply.sfFile.name);
  1061.     if ((Last_vRefNum != Files.theStdFileReply.sfFile.vRefNum) || (Last_parID != Files.theStdFileReply.sfFile.parID) || (!NamesAreSame))
  1062.         theItem = sfItemFileListUser;
  1063.     }
  1064. else
  1065.     theItem = theItem;
  1066.  
  1067. if (theItem == sfItemFileListUser)
  1068.     {
  1069.     if ((Last_vRefNum != Files.theStdFileReply.sfFile.vRefNum) || (Last_parID != Files.theStdFileReply.sfFile.parID) || (Last_Name != Files.theStdFileReply.sfFile.name))
  1070.         {
  1071.         Last_vRefNum = Files.theStdFileReply.sfFile.vRefNum;
  1072.         Last_parID = Files.theStdFileReply.sfFile.parID;
  1073.         PStrCopy((Str255 *)Files.theStdFileReply.sfFile.name,&Last_Name);
  1074.         GetDItem(theDialog, 10, &DType, &DItem, &tempRect);
  1075.         theWidth = tempRect.right - tempRect.left - 10;
  1076.         PStrCopy((Str255 *)"\pSelect '",&sTemp );
  1077.         theWidth = theWidth - StringWidth(sTemp);
  1078.         PStrCopy((Str255 *)Files.theStdFileReply.sfFile.name,&theName);
  1079.         theNameWidth = StringWidth(theName);
  1080.         if (theNameWidth > theWidth)
  1081.             {
  1082.             LastChar[0] = 1;
  1083.             LastChar[1] = theName[theName[0]];
  1084.             PStrCopy(&theName,&sTemp); 
  1085.             PStrCat((Str255 *)"\p...",&sTemp);
  1086.             PStrCat(&LastChar,&sTemp); 
  1087.             while (StringWidth(sTemp) > (theWidth - 5))
  1088.                 {
  1089.                 theName[0] = theName[0] - 1;
  1090.                 PStrCopy(&theName,&sTemp); 
  1091.                 PStrCat((Str255 *)"\p...",&sTemp);
  1092.                 PStrCat(&LastChar,&sTemp); 
  1093.                 }
  1094.             PStrCat((Str255 *)"\p...",&theName);
  1095.             PStrCat(&LastChar,&theName); 
  1096.             }
  1097.  
  1098.         PStrCopy((Str255 *)"\pSelect '", &sTemp );
  1099.         PStrCat(&theName,&sTemp); 
  1100.         PStrCat((Str255 *)"\p'",&sTemp);
  1101.         CItem = (ControlHandle)DItem;                /* Change dialog handle to control handle */
  1102.         SetCTitle(CItem, sTemp);
  1103.         if (Files.theStdFileReply.sfIsFolder || Files.theStdFileReply.sfIsVolume)
  1104.             HiliteControl(CItem, 0);
  1105.         else
  1106.             HiliteControl(CItem,255);
  1107.         }
  1108.     }
  1109. else if (theItem == 10)
  1110.     theItem = sfItemOpenButton;
  1111.  
  1112. return(theItem);
  1113. }
  1114.  
  1115. /* ======================================================= */
  1116.  
  1117. /* Routine: mySelectCustomFileFilter */
  1118. /* Purpose: Filter file routine for Select Volume routine */
  1119.  
  1120. static pascal Boolean mySelectCustomFileFilter (CInfoPBPtr pb,Ptr myDataPtr)
  1121. {
  1122. Boolean        HideTheItem;
  1123. HFileInfo    *FileRecPtr;
  1124.  
  1125.  
  1126. HideTheItem = true;
  1127. FileRecPtr = (HFileInfo *)pb;
  1128. if ((FileRecPtr->ioFlAttrib & 0x0010) != 0)            /* Doing Folder */
  1129.     HideTheItem = false;
  1130.  
  1131. return(HideTheItem);
  1132. }
  1133.  
  1134. /* ======================================================= */
  1135.  
  1136. /* Routine: Do_The_Select_Volume */
  1137. /* Purpose: This is a routine used to select a user selected folder or volume */
  1138. /* Return TRUE for opened the file OK, else return FALSE */
  1139.  
  1140. Boolean Do_The_Select_Volume (FSSpec *theFile)        /* Select a volume */
  1141. {
  1142. short    Screen_Width;                                /* Size of the current screen */
  1143. short    Screen_Height;                                /* Size of the current screen */
  1144. Point    Where;                                        /* Used for placing the SF dialog */
  1145. Boolean    OpenedOK;                                    /* Flag to return */
  1146. #if defined(powerc) || defined(__powerc)
  1147. FileFilterYDUPP    gMyFileFilterYDUPP;
  1148. DlgHookYDUPP    gMyDlgHookYDUPP;
  1149. #endif
  1150.  
  1151.  
  1152. #if defined(powerc) || defined(__powerc)
  1153. gMyFileFilterYDUPP = NewFileFilterYDProc(mySelectCustomFileFilter);
  1154. gMyDlgHookYDUPP = NewDlgHookYDProc(mySelectDlgFilter);
  1155. #endif
  1156.  
  1157. Screen_Width = screenRect.bounds.right - screenRect.bounds.left;/* Width of this screen */
  1158. Screen_Height = screenRect.bounds.bottom - screenRect.bounds.top;
  1159.  
  1160. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1161. Where.v = (Screen_Height / 4) - (104 / 2);
  1162. if (Where.v < 60)
  1163.     Where.v = 60;
  1164. InitCursor();
  1165. Files.typeList[0] = 'GRC ';
  1166. Last_vRefNum = -2;
  1167. Last_parID = -2;
  1168. #if defined(powerc) || defined(__powerc)
  1169. CustomGetFile(gMyFileFilterYDUPP,0,Files.typeList,&Files.theStdFileReply,
  1170.     512,Where,gMyDlgHookYDUPP, nil, nil, nil, nil);
  1171. #else
  1172. CustomGetFile((FileFilterYDProcPtr)mySelectCustomFileFilter,0,Files.typeList,&Files.theStdFileReply,
  1173.     512,Where,(DlgHookYDProcPtr)mySelectDlgFilter, nil, nil, nil, nil);
  1174. #endif
  1175.  
  1176. OpenedOK = false;                                    /* Init to did not open the file */
  1177. if (Files.theStdFileReply.sfGood)                    /* Only do if the user did not cancel */
  1178.     {
  1179.     *theFile = Files.theStdFileReply.sfFile;        /* Save the FSSpec */
  1180.     BlockMove((Ptr)&Files.theStdFileReply.sfFile.name,&Files.inputFileName,Files.theStdFileReply.sfFile.name[0]+1);
  1181.     OpenedOK = true;                                /* We selected a folder */
  1182.     }
  1183. else
  1184.     Files.inputFileName[0] = 0;                        /* No name for a folder */
  1185.  
  1186. return(OpenedOK);
  1187. }
  1188.  
  1189. /* ======================================================= */
  1190.  
  1191. /* Routine: Do_The_Open_File */
  1192. /* Purpose: This is a routine used to open a user selected file */
  1193. /* Return TRUE for opened the file OK, else return FALSE */
  1194.  
  1195. Boolean Do_The_Open_File (short NumberOfTypes,short *theVolRefNum,ProcPtr fileFilter,
  1196.     ProcPtr dlgHook)
  1197. {
  1198. short    Screen_Width;                                /* Size of the current screen */
  1199. short    Screen_Height;                                /* Size of the current screen */
  1200. Point    Where;                                        /* Used for placing the SF dialog */
  1201. Boolean    OpenedOK;                                    /* Flag to return */
  1202. OSErr    ErrorCode;
  1203. #if defined(powerc) || defined(__powerc)
  1204. FileFilterUPP    gMyFileFilterUPP;
  1205. DlgHookUPP        gMyDlgHookUPP;
  1206. #endif
  1207.  
  1208.  
  1209. #if defined(powerc) || defined(__powerc)
  1210. gMyFileFilterUPP = NewFileFilterProc(fileFilter);
  1211. gMyDlgHookUPP = NewDlgHookProc(dlgHook);
  1212. #endif
  1213.  
  1214. Screen_Width = screenRect.bounds.right - screenRect.bounds.left;/* Width of this screen */
  1215. Screen_Height = screenRect.bounds.bottom - screenRect.bounds.top;
  1216.  
  1217. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1218. Where.v = (Screen_Height / 4) - (104 / 2);
  1219. if (Where.v < 60)
  1220.     Where.v = 60;
  1221. InitCursor();
  1222. #if defined(powerc) || defined(__powerc)
  1223. SFGetFile(Where,(StringPtr)"/pNot used",gMyFileFilterUPP,NumberOfTypes,Files.typeList,gMyDlgHookUPP,&Files.Reply);
  1224. #else
  1225. SFGetFile(Where,(StringPtr)"/pNot used",(FileFilterProcPtr)fileFilter,NumberOfTypes,
  1226.     Files.typeList,(DlgHookProcPtr)dlgHook,&Files.Reply);
  1227. #endif
  1228.  
  1229. *theVolRefNum = 0;
  1230. Files.inputRefNum = 0;                                /* We did not open */
  1231.  
  1232. OpenedOK = false;                                    /* Init to did not open the file */
  1233. if (Files.Reply.good)                                /* Only do if the user did not cancel */
  1234.     {
  1235.     BlockMove((Ptr)&Files.Reply.fName,&Files.inputFileName,Files.Reply.fName[0]+1);
  1236.  
  1237.     ErrorCode = SetVol(nil, Files.Reply.vRefNum);    /* Set to this volume for later opens */
  1238.     *theVolRefNum = Files.Reply.vRefNum;
  1239.     OpenedOK = true;                                /* Flag that we are open OK */
  1240.     }
  1241. else
  1242.     Files.inputFileName[0] = 0;                        /* No name for a file */
  1243.  
  1244. return(OpenedOK);
  1245. }
  1246.  
  1247. /* ======================================================= */
  1248.  
  1249. /* Routine: Do_The_Save_File */
  1250. /* Purpose: This is a routine used to save a user selected file */
  1251. /* Return TRUE for opened the file OK, else return FALSE */
  1252.  
  1253. Boolean Do_The_Save_File (OSType creator,OSType fileType,Str255 *Prompt,Str255 *DefaultName,
  1254.     short *theVolRefNum,short *theRefNum,ProcPtr dlgHook)
  1255. {
  1256. short    Screen_Width;                                /* Size of the current screen */
  1257. short    Screen_Height;                                /* Size of the current screen */
  1258. Point    Where;                                        /* Used for placing the SF dialog */
  1259. Boolean    OpenedOK;                                    /* Flag to return */
  1260. OSErr    ErrorCode;
  1261. #if defined(powerc) || defined(__powerc)
  1262. DlgHookUPP        gMyDlgHookUPP;
  1263. #endif
  1264.  
  1265.  
  1266. #if defined(powerc) || defined(__powerc)
  1267. gMyDlgHookUPP = NewDlgHookProc(dlgHook);
  1268. #endif
  1269.  
  1270. Screen_Width = screenRect.bounds.right - screenRect.bounds.left;/* Width of this screen */
  1271. Screen_Height = screenRect.bounds.bottom - screenRect.bounds.top;
  1272.  
  1273. Where.h = (Screen_Width / 2) - (304 / 2);            /* Place to put this dialog */
  1274. Where.v = (Screen_Height / 4) - (104 / 2);
  1275. if (Where.v < 60)
  1276.     Where.v = 60;
  1277. InitCursor();
  1278. #if defined(powerc) || defined(__powerc)
  1279. SFPutFile(Where,(StringPtr)Prompt,(StringPtr)DefaultName,gMyDlgHookUPP,&Files.Reply);
  1280. #else
  1281. SFPutFile(Where,(StringPtr)Prompt,(StringPtr)DefaultName,(DlgHookProcPtr)dlgHook,&Files.Reply);
  1282. #endif
  1283.  
  1284. BlockMove((Ptr)&Files.Reply.fName,&Files.outputFileName,Files.Reply.fName[0]+1);
  1285. *theVolRefNum = Files.Reply.vRefNum;
  1286. *theRefNum = 0;
  1287. Files.outputRefNum = 0;
  1288.  
  1289. OpenedOK = false;                                    /* Init to did not open the file */
  1290. if (Files.Reply.good)                                /* Only do if the user did not cancel */
  1291.     {
  1292.     ErrorCode = FSDelete((StringPtr)&Files.Reply.fName, Files.Reply.vRefNum);/* Delete an older file */
  1293.     ErrorCode = Create((StringPtr)&Files.Reply.fName, Files.Reply.vRefNum, creator, fileType);/* Create the file */
  1294.     ErrorCode = FSOpen((StringPtr)&Files.Reply.fName, Files.Reply.vRefNum, &Files.outputRefNum);/* Try to open the file */
  1295.  
  1296.     if (ErrorCode == 0)                                /* See if we opened it cleanly */
  1297.         {
  1298.         ErrorCode = SetFPos(Files.outputRefNum, fsFromStart, 0);/* Start at file beginning */
  1299.         ErrorCode = SetVol(nil, *theVolRefNum);        /* Set for later saves */
  1300.         *theRefNum = Files.outputRefNum;
  1301.         *theVolRefNum = Files.Reply.vRefNum;
  1302.         OpenedOK = true;                            /* We opened the file OK */
  1303.         }
  1304.     else
  1305.         {
  1306.         ErrorCode = FSClose(Files.outputRefNum);    /* Close it if we can, safety */
  1307.         SysBeep(20);                                /* Just beep at the user, caller can do more */
  1308.         Files.outputRefNum = 0;                        /* Make sure the refnum is inited */
  1309.         }
  1310.     }
  1311.  
  1312. return(OpenedOK);
  1313. }
  1314.  
  1315. /* ======================================================= */
  1316.  
  1317. /* Routine: PageSetup */
  1318. /* Purpose: Do the page setup */
  1319.  
  1320. void PageSetup(void)
  1321. {
  1322. Boolean    Result;                                        /* Result from Setup dialog */
  1323.  
  1324.  
  1325. PrOpen();                                            /* Open the printer driver */
  1326.  
  1327. if (PrError() == noErr)                                /* Only do if no error  */
  1328.     {
  1329.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1330.         {
  1331.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1332.         HLock((Handle)Printing.hPrint);
  1333.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1334.         }
  1335.  
  1336.     Result = PrStlDialog(Printing.hPrint);            /* Setup dialog */
  1337.     PrClose();
  1338.     }
  1339. else
  1340.     SysBeep(1);
  1341. }
  1342.  
  1343. /* ======================================================= */
  1344.  
  1345. /* Routine: PrintJobSetup */
  1346. /* Purpose: Do the job setup */
  1347.  
  1348. void PrintJobSetup(void)
  1349. {
  1350. Boolean    Result;                                        /* Result from Setup dialog */
  1351.  
  1352.  
  1353. PrOpen();                                            /* Open the printer driver */
  1354.  
  1355. if (PrError() == noErr)                                /* Only do if no error  */
  1356.     {
  1357.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1358.         {
  1359.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1360.         HLock((Handle)Printing.hPrint);
  1361.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1362.         }
  1363.  
  1364.     Result = PrJobDialog(Printing.hPrint);            /* Setup dialog */
  1365.     PrClose();
  1366.     }
  1367. else
  1368.     SysBeep(1);
  1369. }
  1370.  
  1371. /* ======================================================= */
  1372.  
  1373. /* Routine: OpenThePrinter */
  1374. /* Purpose: Open the printer and driver for use */
  1375.  
  1376. void OpenThePrinter(Boolean *Cancelled)
  1377. {
  1378.  
  1379.  
  1380. PrOpen();                                            /* Open the printer driver */
  1381.  
  1382. if (PrError() == noErr)                                /* Only do if no error */
  1383.     {
  1384.     Printing.PrinterIsOpen = FALSE;                    /* Whether printer is open or not */
  1385.     if (Printing.hPrint == NIL)                        /* Make a print record if there is none */
  1386.         {
  1387.         Printing.hPrint = (THPrint)NewHandle(sizeof(TPrint));
  1388.         HLock((Handle)Printing.hPrint);
  1389.         PrintDefault(Printing.hPrint);                /* Init to default values */
  1390.         }
  1391.  
  1392.     *Cancelled = PrJobDialog(Printing.hPrint);        /* Setup dialog */
  1393.     Printing.CopyCount = (*Printing.hPrint)->prJob.iCopies;    /* Get number of copies to do */
  1394.     *Cancelled = !(*Cancelled);                        /* Inverted logic */
  1395.  
  1396.     Printing.pPrPort = nil;
  1397.  
  1398.     if (*Cancelled == false)                        /* Do if they did not cancel */
  1399.         {
  1400.         Printing.PrinterIsOpen = true;                /* Whether printer is open or not */
  1401.         Printing.PageCount = 1;                        /* For adding in page number */
  1402.         Printing.LineCount = 1;                        /* For printing */
  1403.         Printing.pPrPort = PrOpenDoc(Printing.hPrint, nil, nil);/* Get printing port */
  1404.         }
  1405.     }
  1406. else
  1407.     {
  1408.     SysBeep(1);
  1409.     *Cancelled = TRUE;
  1410.     }
  1411. }
  1412.  
  1413. /* ======================================================= */
  1414.  
  1415. /* Routine: CloseThePrinter */
  1416. /* Purpose: Close the printer */
  1417.  
  1418. void CloseThePrinter(void)
  1419. {
  1420.  
  1421.  
  1422. if (Printing.pPrPort != nil)                        /* Do if we have a port */
  1423.     {
  1424.     PrCloseDoc(Printing.pPrPort);                    /* Clear printing port */
  1425.     Printing.pPrPort = nil;
  1426.     }
  1427.  
  1428. if (Printing.hPrint != nil)                            /* Do if we have a record */
  1429.     {
  1430.     if (((*Printing.hPrint)->prJob.bJDocLoop == bSpoolLoop) && (PrError() == noErr))
  1431.         PrPicFile(Printing.hPrint, NIL, NIL, NIL, &Printing.prStatus);/* Spool it */
  1432.     }
  1433. }
  1434.  
  1435. /* ======================================================= */
  1436.  
  1437. /* Routine: SetupTheItem */
  1438. /* Purpose: Setup a dialog or alert item */
  1439.  
  1440. void SetupTheItem(DialogPtr theDialog,short ItemID,Boolean SizeIt,Boolean ShowIt,
  1441.     Boolean EnableIt,Boolean SetTheMax,Rect *thePosition,long ExtraData,short StringID)
  1442. {
  1443. Rect            tempRect;                            /* Temporary rectangle */
  1444. short            DType;                                /* Type of dialog item */
  1445. Handle            DItem;                                /* Handle to the dialog item */
  1446. ControlHandle    CItem;                                /* Control handle */
  1447.  
  1448.  
  1449. GetDItem(theDialog,ItemID,&DType,&DItem,&tempRect);/* Get the item handle and size */
  1450. CItem = (ControlHandle)DItem;                        /* Change to control handle */
  1451.  
  1452. if (SizeIt)                                            /* Have to resize all CDEF connected controls */
  1453.     SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  1454. *thePosition = tempRect;                            /* Pass back the zone location and size */
  1455.  
  1456. if (ExtraData != NIL)                                /* See if extra data for a CDEF */
  1457.     (*CItem)->contrlData = (Handle)ExtraData;        /* Send it */
  1458.  
  1459. if (StringID != 0)                                    /* See if a CDEF and needs the title set again*/
  1460.     {
  1461.     GetIndString(sTemp,StringID,1);                    /* Get the string */
  1462.     SetCTitle(CItem,sTemp);                            /* Set the string */
  1463.     }
  1464.  
  1465. if (EnableIt)                                        /* See if enable or disable the zone */
  1466.     HiliteControl (CItem,0);                        /* Enable the zone */
  1467. else
  1468.     HiliteControl (CItem,255);                        /* Dim the zone */
  1469.  
  1470. if (SetTheMax)
  1471.     SetCtlMax(CItem,12345);                            /* Set the flag to the CDEF */
  1472.  
  1473. if (ShowIt)
  1474.     ShowControl(CItem);                                /* Show it to activate it */
  1475. }
  1476.  
  1477. /* ======================================================= */
  1478.  
  1479. /* Routine: CenterOnColorScreen */
  1480. /* Purpose: Center a window onto the deepest color screen */
  1481.  
  1482. void CenterOnColorScreen (WindowPtr theWindow )
  1483. {
  1484. Rect        tempRect,gdRect,temp2Rect;                /* Temporary rectangle */
  1485. GDHandle    theDevice;                                /* Graphic device */
  1486.  
  1487. if ((theWindow != NIL) && (Has.ColorQD))            /* Make sure it is safe to go ahead */
  1488.     {
  1489.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  1490.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  1491.  
  1492.     if (theDevice != NIL)                            /* Make sure we got a device */
  1493.         {
  1494.         gdRect = (*theDevice)->gdRect;                /* Get the device rect */
  1495.         temp2Rect = theWindow->portRect;            /* Get the window rect */
  1496.  
  1497.         tempRect.top = gdRect.top + ((gdRect.bottom-gdRect.top)/2) - ((temp2Rect.bottom-temp2Rect.top)/2);
  1498.         tempRect.left = gdRect.left + ((gdRect.right-gdRect.left)/2) - ((temp2Rect.right-temp2Rect.left)/2);
  1499.         MoveWindow(theWindow, tempRect.left, tempRect.top, TRUE);/* Move the window*/
  1500.         SetPort(theWindow);                         /* Prepare to write into our window */
  1501.         }
  1502.     }
  1503. }
  1504.  
  1505. /* ======================================================= */
  1506.  
  1507. /* Routine: GetDeepestColorScreenRect */
  1508. /* Purpose: Get the deepest color screen rect */
  1509.  
  1510. void GetDeepestColorScreenRect (Rect *DeepRect )
  1511. {
  1512. Rect        tempRect;                                /* Temporary rectangle */
  1513. GDHandle    theDevice;                                /* Graphic device */
  1514.  
  1515.  
  1516. *DeepRect = screenRect.bounds;                    /* Default to the main screen */
  1517. theDevice = NIL;                                    /* Default to no device */
  1518. if (Has.ColorQD)                                    /* See if color QuickDraw is around */
  1519.     {
  1520.     SetRect(&tempRect,-32000,-32000,32000,32000);    /* Look in all directions */
  1521.     theDevice = GetMaxDevice(&tempRect);            /* Get the deepest device */
  1522.  
  1523.     if (theDevice != NIL)                            /* Make sure we got a device */
  1524.         *DeepRect = (*theDevice)->gdRect;            /* Get the device rect */
  1525.     }
  1526. }
  1527.  
  1528. /* ======================================================= */
  1529.  
  1530. void HiliteDefaultButton(DialogPtr theDialog,short theItem)
  1531. {
  1532. Rect            tempRect;
  1533. short            DType;                                /* Type of dialog item */
  1534. Handle            DItem;                                /* Handle to the dialog item */
  1535.  
  1536.  
  1537. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1538. PenSize(3, 3);                                        /* Change pen to draw thick default outline */
  1539. InsetRect(&tempRect, -4, -4);                        /* Draw outside the button by 1 pixel */
  1540. FrameRoundRect(&tempRect,16,16);                    /* Draw the outline */
  1541. PenSize(1, 1);                                         /* Restore the pen size to the default value */
  1542. }
  1543.  
  1544. /* ======================================================= */
  1545.  
  1546. void CheckKeysInDialog(DialogPtr theDialog,Boolean *valMyFilter,EventRecord *theEvent,short *itemHit)
  1547. {
  1548. short            chCode;                            /* Key entered */
  1549. char            MyCmdKey;                        /* The command key */
  1550. Boolean            CmdDown;                        /* Flag for command key used */
  1551. Rect            tempRect;                        /* Temporary rectangle */
  1552. short            DType;                            /* Type of dialog item */
  1553. Handle            DItem;                            /* Handle to the dialog item */
  1554. ControlHandle    CItem;                            /* Control handle */
  1555. long            LTemp;
  1556.  
  1557.  
  1558. if (theEvent->what == keyDown)
  1559.     {
  1560.     chCode =  (short)theEvent->message & charCodeMask;/* Get character */
  1561.     MyCmdKey = (char)chCode;                        /* Change to ASCII */
  1562.     CmdDown = ((theEvent->modifiers & cmdKey) != 0);/* Get command key state */
  1563.     if (CmdDown)                                    /* Do if command key was down */
  1564.         {
  1565.         if ((MyCmdKey == 'x') || (MyCmdKey == 'X'))
  1566.             {
  1567.             DlgCut(theDialog);
  1568.             *valMyFilter = TRUE;
  1569.             }
  1570.         else if ((MyCmdKey =='c') || (MyCmdKey == 'C')) 
  1571.             {
  1572.             DlgCopy(theDialog);
  1573.             *valMyFilter = TRUE;
  1574.             }
  1575.         else if ((MyCmdKey =='v') || (MyCmdKey == 'V'))
  1576.             {
  1577.             DlgPaste(theDialog);
  1578.             *valMyFilter = TRUE;
  1579.             }
  1580.         }
  1581.     else if ((chCode == 13) || (chCode == 3))        /* CR or Enter */
  1582.         {
  1583.         *valMyFilter = TRUE;                            /* Flag we got a hit */
  1584.         *itemHit = 1;                                /* Default for CR */
  1585.         GetDItem (theDialog ,*itemHit, &DType, &DItem, &tempRect);/* Get the item */
  1586.         if (DType == (ctrlItem + btnCtrl))            /* If a button then ... */
  1587.             {
  1588.             CItem = (ControlHandle)DItem;            /* Make it a controlhandle */
  1589.             HiliteControl(CItem, 10);                /* Hilite it */
  1590.             LTemp = TickCount() + 15;                /* Flash the button for 1/4 second */
  1591.             do
  1592.                 {}
  1593.             while (LTemp > TickCount());
  1594.             HiliteControl(CItem, 0);                /* UnHilite it */
  1595.             }
  1596.         }
  1597.     }
  1598. }
  1599.  
  1600. /* ======================================================= */
  1601.  
  1602. void SetupNormalControl(DialogPtr theDialog,short theItem,Boolean Enabled,short InitialValue)
  1603. {
  1604. Rect            tempRect;                            /* Temporary rectangle variable */
  1605. short            DType;                                /* Type of dialog item */
  1606. Handle            DItem;                                /* Handle to the dialog item */
  1607. ControlHandle    CItem;                                /* Control handle */
  1608.  
  1609.  
  1610. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1611. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1612.  
  1613. if (Enabled)                                        /* See if enable or disable the zone */
  1614.     HiliteControl (CItem,0);                        /* Enable the zone */
  1615. else
  1616.     HiliteControl (CItem,255);                        /* Dim the zone */
  1617.  
  1618. SetCtlValue(CItem,InitialValue);
  1619. }
  1620.  
  1621. /* ======================================================= */
  1622.  
  1623. static void BasicSetup(DialogPtr theDialog,short theItem,Boolean Enabled,short MessageResID,
  1624.     ControlHandle *theCItem)
  1625. {
  1626. Rect            tempRect;                            /* Temporary rectangle variable */
  1627. short            DType;                                /* Type of dialog item */
  1628. Handle            DItem;                                /* Handle to the dialog item */
  1629. ControlHandle    CItem;                                /* Control handle */
  1630. Str255            sTemp;
  1631.  
  1632.  
  1633. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1634. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1635. SizeControl(CItem, tempRect.right-tempRect.left, tempRect.bottom-tempRect.top);/* Size it */
  1636.  
  1637. if (Enabled)                                        /* See if enable or disable the zone */
  1638.     HiliteControl (CItem,0);                        /* Enable the zone */
  1639. else
  1640.     HiliteControl (CItem,255);                        /* Dim the zone */
  1641.  
  1642. SetCtlValue(CItem,0);
  1643.  
  1644. if (MessageResID != 0)
  1645.     {
  1646.     GetIndString(sTemp,MessageResID,1);                /* Get the string */
  1647.     SetCTitle(CItem,sTemp);                            /* Set the string */
  1648.     }
  1649. *theCItem = CItem;
  1650. }
  1651.  
  1652. /* ======================================================= */
  1653.  
  1654. void SetupHotSpot(DialogPtr theDialog,short theItem,Boolean MakeHotSpot,long LineWidth,
  1655.     long ShadowWidth,short MessageResID,Boolean Enabled)
  1656. {
  1657. ControlHandle    CItem;                                /* Control handle */
  1658. long            LTemp;
  1659.  
  1660.  
  1661. BasicSetup(theDialog,theItem,Enabled,MessageResID,&CItem);
  1662.  
  1663. if (MakeHotSpot)
  1664.     LTemp = 0x00FF0000;                                /* Tell the CDEF that it is a HotSpot */
  1665. else
  1666.     LTemp = 0x00000000;                                /* Tell the CDEF that it is a Rectangle */
  1667.  
  1668. if (MessageResID != 0)
  1669.     LTemp = LTemp + 0x01000000;
  1670.  
  1671. LTemp = LTemp + ((0x000000FF & LineWidth) * 0x00000100);    /* Set the line width */
  1672. LTemp = LTemp + (0x000000FF & ShadowWidth);            /* Set the shadow width */
  1673.  
  1674. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1675.  
  1676. ShowControl(CItem);                                    /* Show it to activate it */
  1677. }
  1678.  
  1679. /* ======================================================= */
  1680.  
  1681. void SetupPlugin(DialogPtr theDialog,short theItem,Boolean Enabled,long NormalID,long HilitedID,
  1682.     short MessageResID)
  1683. {
  1684. ControlHandle    CItem;                                /* Control handle */
  1685. long            LTemp;
  1686.  
  1687.  
  1688. BasicSetup(theDialog,theItem,Enabled,MessageResID,&CItem);
  1689.  
  1690. LTemp = (HilitedID * 0x00010000) + NormalID;    
  1691. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1692.  
  1693. SetCtlMax(CItem,12345);                                /* Set the flag to the CDEF */
  1694.  
  1695. ShowControl(CItem);                                    /* Show it to activate it */
  1696. }
  1697.  
  1698. /* ======================================================= */
  1699.  
  1700. void SetupMinMaxValue(DialogPtr theDialog,short theItem,short min,short max,short value)
  1701. {
  1702. Rect            tempRect;                            /* Temporary rectangle variable */
  1703. short            DType;                                /* Type of dialog item */
  1704. Handle            DItem;                                /* Handle to the dialog item */
  1705. ControlHandle    CItem;                                /* Control handle */
  1706.  
  1707.  
  1708. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1709. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1710. SetCtlMin(CItem,min);                                /* The Min */
  1711. SetCtlMax(CItem,max);                                /* The Max */
  1712. SetCtlValue(CItem,value);                            /* The first selection */
  1713. }
  1714.  
  1715. /* ======================================================= */
  1716.  
  1717. void SetupPopupMenu(DialogPtr theDialog,short theItem,Boolean Enabled,short theMenuID,short value)
  1718. {
  1719. Rect            tempRect;                            /* Temporary rectangle variable */
  1720. short            DType;                                /* Type of dialog item */
  1721. Handle            DItem;                                /* Handle to the dialog item */
  1722. ControlHandle    CItem;                                /* Control handle */
  1723.  
  1724.  
  1725. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get the item handle */
  1726. CItem = (ControlHandle)DItem;                        /* Change dialog handle to control handle */
  1727. SizeControl(CItem,tempRect.right - tempRect.left, tempRect.bottom - tempRect.top);/* Size it to the item size */
  1728. SetCtlValue(CItem,value);                            /* The first selection */
  1729. SetCtlMax(CItem,theMenuID);                            /* The max value is the menu ID */
  1730.  
  1731. if (Enabled)                                        /* See if enable or disable the zone */
  1732.     HiliteControl (CItem,0);                        /* Enable the zone */
  1733. else
  1734.     HiliteControl (CItem,255);                        /* Dim the zone */
  1735.  
  1736. SetNameForPopup(CItem);                                /* Set the popup title */
  1737. ShowControl(CItem);                                    /* Show it to activate it */
  1738. }
  1739.  
  1740. /* ======================================================= */
  1741.  
  1742. void SetupPalette(DialogPtr theDialog,short theItem,Boolean Enabled,long NumberRows,long NumberCols,
  1743.     long PalPictureID,long HiliteMethod)
  1744. {
  1745. ControlHandle    CItem;                                /* Control handle */
  1746.  
  1747.  
  1748. BasicSetup(theDialog,theItem,Enabled,0,&CItem);
  1749.  
  1750. SetCtlMax(CItem,(NumberRows * 0x00000100) + NumberCols);    /* The max value is the (rows * 0x0100) + columns */
  1751. SetCtlValue(CItem,(1 * 0x0100) + 1 );                /* The current value is the (rows * 0x0100) + columns */
  1752. (*CItem)->contrlData = (Handle)((0xFF000000 | PalPictureID) + (HiliteMethod * 0x00010000));/* Picture ID and hilite method */
  1753. ShowControl(CItem);                                    /* Show it to activate it */
  1754. }
  1755.  
  1756. /* ======================================================= */
  1757.  
  1758. void SetupIconSicn(DialogPtr theDialog,short theItem,Boolean Enabled,
  1759.     long NormalID,long HilitedID)
  1760. {
  1761. ControlHandle    CItem;                                /* Control handle */
  1762. long            LTemp;
  1763.  
  1764.  
  1765. BasicSetup(theDialog,theItem,Enabled,0,&CItem);
  1766.  
  1767. LTemp = (NormalID * 0x00010000) + HilitedID;    
  1768. (*CItem)->contrlData = (Handle)LTemp;                /* Send it */
  1769.  
  1770. SetCtlMax(CItem,12345);                                /* Set the flag to the CDEF */
  1771.  
  1772. ShowControl(CItem);                                    /* Show it to activate it */
  1773. }
  1774.  
  1775. /* ======================================================= */
  1776.  
  1777. void ClearTheRadio(DialogPtr theDialog,short theItem,short *value)
  1778. {
  1779. Rect            tempRect;                            /* Temporary rectangle variable */
  1780. short            DType;                                /* Type of dialog item */
  1781. Handle            DItem;                                /* Handle to the dialog item */
  1782. ControlHandle    CItem;                                /* Control handle */
  1783.  
  1784.  
  1785. GetDItem(theDialog,theItem,&DType,&DItem,&tempRect);/* Get which item was pressed */
  1786. CItem = (ControlHandle)DItem;                        /* Change the pointer for getting to the control */
  1787. SetCtlValue(CItem,0);
  1788. *value = 0;                                            /* Set the current Radio value */
  1789. }
  1790.  
  1791. /* ======================================================= */
  1792.  
  1793. void DrawStaticTextBox(short ResID,Rect *theRect,short Justify,short theSize,
  1794.     short theFont,Style theStyle)
  1795. {
  1796. Str255        sTemp;
  1797.  
  1798.  
  1799. TextSize(theSize);                            /* Set text size */
  1800. TextFont(theFont);                            /* Set text font */
  1801. TextFace(theStyle);                            /* Set text style */
  1802. GetIndString(sTemp,ResID,1);                /* Get the string */
  1803. TextBox(&sTemp[1],sTemp[0],theRect,Justify);
  1804.  
  1805. TextFont(applFont);                            /* Back to the application font */
  1806. TextSize(12);                                /* Back to the application size */
  1807. TextFace(0);                                /* Set text style */
  1808. }
  1809.  
  1810. /* ======================================================= */
  1811.  
  1812. void DrawStaticLine(short ResID,short Left,short Top,short theSize,short theFont,Style theStyle)
  1813. {
  1814. Str255        sTemp;
  1815.  
  1816.  
  1817. TextSize(theSize);                            /* Set text size */
  1818. TextFont(theFont);                            /* Set text font */
  1819. TextFace(theStyle);                            /* Set text style */
  1820. GetIndString(sTemp,ResID,1);                /* Get the string */
  1821. MoveTo(Left,Top + theSize - 3);
  1822. DrawString(sTemp);
  1823.  
  1824. TextFont(applFont);                            /* Back to the application font */
  1825. TextSize(12);                                /* Back to the application size */
  1826. TextFace(0);                                /* Set text style */
  1827. }
  1828.  
  1829. /* ======================================================= */
  1830.  
  1831. void DrawTheTEArea(Rect *theTERect,TEHandle theTE,short theSize,short theFont,Style theStyle)
  1832. {
  1833.  
  1834.  
  1835. TextSize(theSize);                            /* Set text size */
  1836. TextFont(theFont);                            /* Set text font */
  1837. TextFace(theStyle);                            /* Set text style */
  1838. FrameRect(theTERect);                        /* Frame this TE area */
  1839. if (theTE != nil)
  1840.     TEUpdate(theTERect,theTE);                /* Update the TE area */
  1841.  
  1842. TextFont(applFont);                            /* Back to the application font */
  1843. TextSize(12);                                /* Back to the application size */
  1844. TextFace(0);                                /* Set text style */
  1845. }
  1846.  
  1847. /* ======================================================= */
  1848.  
  1849. ControlHandle MakeNormalControl(WindowPtr theWindow,short theResID,Boolean Enabled,short InitialValue)
  1850. {
  1851. ControlHandle    theCtrl;
  1852.  
  1853.  
  1854. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new control */
  1855. SetCtlValue(theCtrl,InitialValue);                /* Set the value */
  1856. if (Enabled)
  1857.     HiliteControl(theCtrl,0);                    /* Enable the control */
  1858. else
  1859.     HiliteControl(theCtrl,255);                    /* Disable the control */
  1860.  
  1861. return(theCtrl);
  1862. }
  1863.  
  1864. /* ======================================================= */
  1865.  
  1866. ControlHandle MakeHotSpot(WindowPtr theWindow,short theResID,Boolean MakeHotSpot,long LineWidth,
  1867.     long ShadowWidth,short MessageResID,Boolean Enabled)
  1868. {
  1869. ControlHandle    theCtrl;
  1870. long            LTemp;
  1871. Str255            sTemp;
  1872.  
  1873.  
  1874. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new control */
  1875. HideControl(theCtrl);                            /* Hide till we set all the parameters */
  1876.  
  1877. if (Enabled)
  1878.     HiliteControl(theCtrl,0);                    /* Enable the control */
  1879. else
  1880.     HiliteControl(theCtrl,255);                    /* Disable the control */
  1881.  
  1882. if (MakeHotSpot)
  1883.     LTemp = 0x00FF0000;                            /* Tell the CDEF that it is a HotSpot */
  1884. else
  1885.     LTemp = 0x00000000;                            /* Tell the CDEF that it is a Rectangle */
  1886.  
  1887. LTemp = LTemp + ((0x000000FF & LineWidth) * 0x00000100);    /* Set the line width */
  1888. LTemp = LTemp + (0x000000FF & ShadowWidth);        /* Set the shadow width */
  1889.  
  1890. if (MessageResID != 0)
  1891.     {
  1892.     LTemp = LTemp + 0x01000000;
  1893.     GetIndString(sTemp,MessageResID,1);            /* Get the string */
  1894.     SetCTitle(theCtrl,sTemp);                    /* Set the string */
  1895.     }
  1896.  
  1897. (*theCtrl)->contrlData = (Handle)LTemp;            /* Send it */
  1898.  
  1899. SetCtlValue(theCtrl,0);
  1900. ShowControl(theCtrl);                            /* Show it to activate it */
  1901.  
  1902. return(theCtrl);
  1903. }
  1904.  
  1905. /* ======================================================= */
  1906.  
  1907. ControlHandle MakeIconSicn(WindowPtr theWindow,short theResID,Boolean Enabled,
  1908.     long NormalID,long HilitedID)
  1909. {
  1910. ControlHandle    theCtrl;
  1911.  
  1912.  
  1913. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  1914. if (Enabled)
  1915.     HiliteControl(theCtrl,0);                    /* Enable the button */
  1916. else
  1917.     HiliteControl(theCtrl,255);                    /* Disable the button */
  1918. (*theCtrl)->contrlData = 
  1919.         (Handle)((NormalID * 0x00010000) + HilitedID);    /* Set the icons to be used */
  1920.  
  1921. return(theCtrl);
  1922. }
  1923.  
  1924. /* ======================================================= */
  1925.  
  1926. ControlHandle MakePlugin(WindowPtr theWindow,short theResID,Boolean Enabled,
  1927.     long NormalID,long HilitedID,short MessageResID,short InitialValue)
  1928. {
  1929. ControlHandle    theCtrl;
  1930. long            LTemp;
  1931. Str255            sTemp;
  1932.  
  1933.  
  1934. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  1935. HideControl(theCtrl);
  1936. if (Enabled)
  1937.     HiliteControl(theCtrl,0);                    /* Enable the button */
  1938. else
  1939.     HiliteControl(theCtrl,255);                    /* Disable the button */
  1940.  
  1941. LTemp = (HilitedID * 0x00010000) + NormalID;    
  1942. (*theCtrl)->contrlData = (Handle)LTemp;            /* Send it */
  1943.  
  1944. SetCtlMax(theCtrl,12345);                        /* Set the flag to the CDEF */
  1945.  
  1946. if (MessageResID != 0)
  1947.     {
  1948.     GetIndString(sTemp,MessageResID,1);            /* Get the string */
  1949.     SetCTitle(theCtrl,sTemp);                    /* Set the string */
  1950.     }
  1951.  
  1952. SetCtlValue(theCtrl,InitialValue);
  1953. ShowControl(theCtrl);                            /* Show it to activate it */
  1954.  
  1955. return(theCtrl);
  1956. }
  1957.  
  1958. /* ======================================================= */
  1959.  
  1960. void MakeMinMaxValue(ControlHandle theControl,short min,short max,short value)
  1961. {
  1962.  
  1963. SetCtlMin(theControl,min);                                /* The Min */
  1964. SetCtlMax(theControl,max);                                /* The Max */
  1965. SetCtlValue(theControl,value);                            /* The first selection */
  1966. }
  1967.  
  1968. /* ======================================================= */
  1969.  
  1970. ControlHandle MakePopupMenu(WindowPtr theWindow,short theResID,Boolean Enabled,
  1971.     short theMenuID,short value)
  1972. {
  1973. ControlHandle    theCtrl;
  1974. long            LTemp;
  1975. Str255            sTemp;
  1976.  
  1977.  
  1978. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  1979. HideControl(theCtrl);
  1980. if (Enabled)
  1981.     HiliteControl(theCtrl,0);                    /* Enable the button */
  1982. else
  1983.     HiliteControl(theCtrl,255);                    /* Disable the button */
  1984.  
  1985. SetCtlMax(theCtrl,theMenuID);                    /* Set the menu for the CDEF */
  1986.  
  1987. SetCtlValue(theCtrl,value);
  1988. SetNameForPopup(theCtrl);                        /* Set the popup title */
  1989. ShowControl(theCtrl);                            /* Show it to activate it */
  1990.  
  1991. return(theCtrl);
  1992. }
  1993.  
  1994. /* ======================================================= */
  1995.  
  1996. void UpdateTheList(RgnHandle theRgn,ListHandle theList,Rect *theRect,short theSize,
  1997.     short theFont,Style theStyle,Boolean InDialog)
  1998. {
  1999. Rect        tempRect;
  2000.  
  2001.  
  2002. TextSize(theSize);                            /* Set text size */
  2003. TextFont(theFont);                            /* Set text font */
  2004. TextFace(theStyle);                            /* Set text style */
  2005.  
  2006. LUpdate(theRgn,theList);                    /* Update this list */
  2007. tempRect = *theRect;                        /* Start with full size */
  2008. InsetRect(&tempRect, -1, -1);                /* Set for framing */
  2009. FrameRect(&tempRect);                        /* Frame it */
  2010.  
  2011. if (InDialog)
  2012.     TextFont(systemFont);                    /* Back to the system font */
  2013. else
  2014.     TextFont(applFont);                        /* Back to the application font */
  2015. TextSize(12);                                /* Back to the application size */
  2016. TextFace(0);                                /* Set text style */
  2017. }
  2018.  
  2019. /* ======================================================= */
  2020.  
  2021. void ClickInTheList(Point myPt,short modifiers,ListHandle theList,short theSize,
  2022.     short theFont,Style theStyle,Boolean InDialog)
  2023. {
  2024. Boolean        DoubleClick;
  2025.  
  2026.  
  2027. TextSize(theSize);                            /* Set text size */
  2028. TextFont(theFont);                            /* Set text font */
  2029. TextFace(theStyle);                            /* Set text style */
  2030.  
  2031. DoubleClick = LClick(myPt,modifiers,theList);
  2032.  
  2033. if (InDialog)
  2034.     TextFont(systemFont);                    /* Back to the system font */
  2035. else
  2036.     TextFont(applFont);                        /* Back to the application font */
  2037. TextSize(12);                                /* Back to the application size */
  2038. TextFace(0);                                /* Set text style */
  2039. }
  2040.  
  2041. /* ======================================================= */
  2042.  
  2043. ControlHandle MakePalette(WindowPtr theWindow,short theResID,Boolean Enabled,long NumberRows,
  2044.     long NumberCols,long PalPictureID,long HiliteMethod)
  2045. {
  2046. ControlHandle    theCtrl;
  2047.  
  2048.  
  2049. theCtrl = GetNewControl(theResID,theWindow);    /* Make a new button */
  2050. HideControl(theCtrl);
  2051. if (Enabled)
  2052.     HiliteControl(theCtrl,0);                    /* Enable the button */
  2053. else
  2054.     HiliteControl(theCtrl,255);                    /* Disable the button */
  2055.  
  2056. SetCtlMax(theCtrl,(NumberRows * 0x00000100) + NumberCols);    /* The max value is the (rows * 0x0100) + columns */
  2057. SetCtlValue(theCtrl,(1 * 0x0100) + 1 );                /* The current value is the (rows * 0x0100) + columns */
  2058. (*theCtrl)->contrlData = (Handle)((0xFF000000 | PalPictureID) + (HiliteMethod * 0x00010000));/* Picture ID and hilite method */
  2059.  
  2060. ShowControl(theCtrl);                            /* Show it to activate it */
  2061.  
  2062. return(theCtrl);
  2063. }
  2064.  
  2065. /* ======================================================= */
  2066.  
  2067. void Activate_TE_Area(Boolean InDialog,Point myPt,TEHandle theTE,short textSize,short textFont,Style textStyle)
  2068. {
  2069.  
  2070.  
  2071. TextSize(textSize);                            /* Set text size */
  2072. TextFont(textFont);                            /* Set text font */
  2073. TextFace(textStyle);                        /* Set text style */
  2074. if (theInput != nil)                        /* See if there is already a TE area */
  2075.     TEDeactivate(theInput);                    /* ...Yes, so turn it off */
  2076.  
  2077. theInput = theTE;
  2078. TEActivate(theInput);                        /* Turn it on */
  2079. TEClick(myPt,false,theInput);
  2080. if (InDialog)
  2081.     TextFont(systemFont);                    /* Back to the system font */
  2082. else
  2083.     TextFont(applFont);                        /* Back to the application font */
  2084. TextSize(12);
  2085. TextFace(0);
  2086. }
  2087.  
  2088. /* ======================================================= */
  2089. /* ======================================================= */
  2090. $$CloseFile
  2091.  
  2092.  
  2093.